home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / eepicemu.sty < prev    next >
Text File  |  1990-12-06  |  3KB  |  96 lines
  1. % eepicemu Version 1.1a < Febrary 1, 1988 >
  2. %    Written by Conrad Kwok
  3. %
  4. % Internet : kwok@iris.ucdavis.edu
  5. % csnet    : kwok@ucd.csnet
  6. % csnet    : kwok%iris.ucdavis.edu@csnet.relay
  7. % UUCP       : ...!ucbvax!ucdavis!iris!kwok
  8. %
  9. % The macros are in public domain.
  10. % You may distribute or modify it in any ways you like.
  11. % Please report any bugs, enhancements, comments, suggestions, etc.
  12. %
  13. % Change logs:
  14. % o Febrary 1, 1989
  15. %   Add \newdimen\maxovaldiam for compatility with eepic
  16. %
  17. % o Febrary 1, 1989
  18. %   Enhanced to handle new commands in eepic 1.1 
  19. %
  20. \makeatletter
  21. \typeout{Emulation of EEPIC using EPIC. Version 1.1a - Released Febrary 1, 1988}
  22. \let\path\drawline
  23. \def\ellipse{%
  24.     \@ifstar{\@ellipse}{\@ellipse}}
  25. \def\@ellipse#1#2{%
  26.     \ifnum #1=#2%
  27.     \circle{#1}%
  28.     \else
  29.     \oval(#1,#2)
  30.     \fi\relax}
  31. \let\Thicklines\thicklines
  32. \def\circle{%
  33.     \@ifstar
  34.     {\@emudot}%
  35.     {\@emucirc}%
  36. }
  37. \def\@emudot#1{%
  38.     \@tempdimb #1\unitlength
  39.     \ifdim \@tempdimb > 15pt
  40.         \oval(#1,#1)%
  41.     \else
  42.         \@dot{#1}%
  43.     \fi
  44. }
  45. \def\@emucirc#1{%
  46.      \@tempdimb #1\unitlength
  47.      \ifdim \@tempdimb > 40pt
  48.     \oval(#1,#1)%
  49.      \else
  50.     \@circle{#1}%
  51.      \fi
  52. }
  53. \def\arc#1#2#3{\typeout{arc function is not supported in emulation package}}
  54. \newcount\@spxcnt
  55. \newcount\@spycnt
  56. \newcount\@ispxcnt
  57. \newcount\@ispycnt
  58. \newcount\@cmidxcnt
  59. \newcount\@cmidycnt
  60.  
  61. \def\spline(#1,#2){%
  62.     \@ifnextchar ({\@ispline(#1,#2)}%
  63.           {\ignorespaces}}
  64. \def\@ispline(#1,#2)(#3,#4){%
  65.     \@ifnextchar ({\@iispline(#1,#2)(#3,#4)}%
  66.               {\@drawline[0](#1,#2)(#3,#4)\ignorespaces}}
  67. \def\@iispline(#1,#2)(#3,#4)(#5,#6){%
  68.     \@ifnextchar ({%
  69.         \@spxcnt=#3 \advance\@spxcnt by #5 \divide\@spxcnt by 2\relax
  70.         \@spycnt=#4 \advance\@spycnt by #6 \divide\@spycnt by 2\relax
  71.         \@chaikin{#1}{#2}{#3}{#4}{\@spxcnt}{\@spycnt}%
  72.         \@ispxcnt=\@spxcnt\relax \@ispycnt=\@spycnt\relax
  73.         \@iispline(\@ispxcnt,\@ispycnt)(#5,#6)}%
  74. %   else
  75.        {\@chaikin{#1}{#2}{#3}{#4}{#5}{#6}}}
  76. \def\@chaikin#1#2#3#4#5#6{%
  77.     \@cmidxcnt=#1 \advance\@cmidxcnt by #3
  78.     \advance\@cmidxcnt by #3 \advance\@cmidxcnt by #5
  79.     \divide\@cmidxcnt by 4
  80.     \@cmidycnt=#2 \advance\@cmidycnt by #4
  81.     \advance\@cmidycnt by #4 \advance\@cmidycnt by #6
  82.     \divide\@cmidycnt by 4
  83.     \@drawline[0](#1,#2)(\@cmidxcnt,\@cmidycnt)%
  84.     \@drawline[0](\@cmidxcnt,\@cmidycnt)(#5,#6)%
  85. }
  86. \def\allinethickness#1{\thicklines\linethickness{#1}}
  87. %
  88. \newdimen\maxovaldiam \maxovaldiam 40pt\relax
  89. %
  90. \def\filltype#1{}
  91. \def\blacken{}
  92. \def\whiten{}
  93. \def\shade{}
  94. \def\texture{}
  95. \makeatother
  96.